(defvar *db* nil)

(defun make-cd(title artis rating ripped)
  (list (:Title title :Artis artis :Rating rating :Ripped ripped))

(defun add-record(cd)
  (push cd *db*)

(defun promt-read(prompt)
  (format *query-io* "~a" prompt)
  (force-out *query-io* )
  (read-line *query-io*))

(defun promt-for-cd()
  (make-cd 
   (prompt-read "Title :")
   (prompt-read "Artis :")
   (or (parse-integer  (prompt-read "rating :") :junk-allowed t) 0 )
   (y-or-n-p "Ripped [y/n] :")))

(defun add-cd()
  (loop (if (not (y-or-n-p "Another? :"))(return))))

